﻿Public Class KhuVucBUS

    Private empDAL As KhuVucDAO

    Public Sub New()
        empDAL = New KhuVucDAO
    End Sub

    Public Function Getdata() As List(Of KhuVucDTO)
        Return empDAL.Getdata()
    End Function

    Public Function IsUpKV(ByVal emp As KhuVucDTO, ByVal f As Boolean) As Boolean
        Return empDAL.IsUpKV(emp, f)
    End Function

    Public Function DeleteKV(ByVal emp As KhuVucDTO)
        Return empDAL.DeleteKV(emp)
    End Function

End Class
